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ABSTRACT 



CGRU is a CONVERT program, CONG its literal transcription into 
LISP, realiied in the CTSS LISP of Project MAC, for finding all the 
congruence relations of a finite state machine whose transition table 
is given as an argument. Central to both programs is the hull 
construction, which forms the smallest congruence relation containing 
a given equivalence relation. This is done by examining all pairs of 
equivalent elements to see if their inages are equivalent. Otherwise the 
inage classes are joined and the calculation repeated. With the hull 
progran, one starts with the identity relation and procedes by joining 
pairs of congruence classes in previously found partitions, and forming 
the hull in order to see if he nay produce a new partition. The 
process terminates when all such extensions have been tried without 
producing any new relations. 
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A congruence relation in a finite state machine is an equivalence 
relation which satisfies the substitution property, which requires that 
the images of equivalent states be equivalent. If M(s,w) is the transition 
function, this requirement is stated formally by requiring that, for all v t 
whenever states s and t are equivalent, so also are M(s,w) and M(t,w). 
Congruence relations play an important role in the theory of finite state 
machines; for example the minimal machine accepting a certain class of 
words nay be found from any other such machine by forming the factor 
machine with respect to the largest congruence relation smaller than the 
equivalence relation of equal outputs. If a machine has two complementary 
congruence relations, it may be decomposed into the direct product of the 
two factor machines. If there is one non-trivial congruence relation, 
the machine may be represented as a serial combination of the factor machino 
and a fibre nachinc. 

In order to have congruence relations available for such considerations, 
we discuss two constructions, The first is the determination of the 
smallest congruence relation smaller than a given congruence relation, 
which we may call its hull , T7ie second is to systematically enumerate 
all the congruence relations for a given machine. This latter is done 
by first listing all the minimal equivalence relations. These are the 
equivalence relations in which there is only one point in each equivalence 
class, except for a certain pair of equivalent points. There is one 
minimal relation for each pair of distinct points. One then furms the 
hull of each of these n(n*l)/2 equivalence relations. Among the hulls 
will be included the minimal congruence relations, but there may well 
be included some larger congruence relations as well. One then continues 
by trying to join the equivalence classes found on the first round in all 
possible pairs, and computing their hulls in turn. The process is then 
repeated until no new congruence relations are found, and an attempt 
has been made to extend those already found in all possible ways. 

Two versions of the program are described. CGRU is a CONVERT 
program, while CONG is an equivalent LISP program. The existence of 
the two programs has permitted a comparison of the speed of execution 
of CONVERT, LISP, and compiled LISP programs. 







The hull construction is quite straightforward. One examines 
one by one all p^irs of equivalent elenents and tests their images 
according to tho various possible input letters. If a pair of 
nonequivalent images is founds their equivalence classes are Joined, 
and the procedure repeated. It terminates when all pairs of equivalent 
elements and all letters have been tested and no non-equivalent image pairs 
have been found. 

If a pair of 
equivalent points 
have inequivalent 
imageoj Join the 
image alas see* 



CONVERT can be caused to carry out the searching which we have 
described automatically, if we present the partition of the state set 
and the transition table properly. A partition is readily described by 
a list of its equivalence classes which in turn are lists of mutually 

equivalent elements; thus if the integers J to 10 are partitioned into 
their residue classes modulo 3 wo would write ((1 4 7 10) (2 5 B) (3 6 9)} 
to represent the partition. The transition table takes the form 

C— (X -■■ (I Y) ---) — ) 
to indicate that M(X,I) ■ Y. In other words, for each state we form a 
Hat headed by that state and followed by pairs of ltttari and the 
corresponding inage. 

Ke make the following definitions, 

■T- is the transition table, in the above form, a VAR. 
(•AND- L M) 

(... (X — (I LQ ...) ...) 
(... (Y ... (i V) -— ) — ) 
(— u ■■■) 
(... y — ) 

(p.. (-AND- (— X ---) ("■ f — )) ■-•) 

CXXX (UU) YYY (W) ZZZ) 
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The pattern ■!■ is used to see whether there is on equivalence 
class containing the two equivalent elements X and Y. One might avoid 
the form -AMI" by using unordered variables, but the present form if 
more transparent. Thus ■ !■ matches any partition containing two equivalent 
elements (not necessarily distinct), and hence will natch any partition. 
The pattern T is designed to match a transition table but particularly 
such a transition table that U appears as the successor of X by the letter 
I and simultaneously V appears as; the successor of Y by the sane letter 
I. Since U and V are not previously bound, T will match any well-formed 
transition table, but in the process will bind I , U, and V. Next, we 
see that UU and W are fragments, namely those partition cells which contain 
U and V respectively. Consequently, when we expect «0« to match the 
partition of the state set, we are expecting to find that U and V are in 
different cells of the partition. 

If we then present CONVERT with the list (X T X) in which X is the 
partition of the state set and T is the transition table, and expect it 
to match (X T X) to {■!■ •?• -0«) # we are expecting it to find two 
equivalent elements X and Y and an input letter I such that M(X,I) » U 
and M(Y,I) - V, and U and V are not equivalent. The fail procedure of 
the pattern matching apparatus will exhaust all possibilities before 
finally giving a negative response. 

The hull construction is then effected by the function HU, 

HI) REPT (((X) CREPT* (X »T« X) M ( 

t(.I« T -0-) CREPT- ((XXX(UU W) YYY ZZZ) 

-T« 

(XXX (UU W) YYY ZZZ)))) 
(1 " ") I) 
)))) 

Writing (HU X), we see that I1U has one argument, which is listed when 

we evaluate the PEPT skeleton. We thus extract the argunent fron this 

list in the first line, and make the cocparison which we have described. 

If there are elements with inequivalent images, their classes are joined 

in the font (UU W) , and the entire process is repeated. Otherwise 

we accept the final partition as the hull. 

The hull function can be used to find all the congruence relations 

for a given machine. The construction depends on the fact that we can 

readily construct all the equivalence relations for a given set since it 

is only necessary to enumerate all the disjoint subset*. However, it is 



only necessary to initiate the process by an enumeration of the minimal 
equivalence relations. Those are the ones for which only a single 
pair of points are equivalent, all other equivalence classes containing 
only single points. If wo now find the hulls of all these partitions, 
we are certain to find the minimal congruence relations, but we may well 
find larger ones also. Actually each hull has the significance that it is 
the minimum congruence relation for which the given pair of points are 
equivalent, but the equivalence of one pair of points may well force the 
equivalence of another pair and not conversely, so that the hull of the 
forced pair could be smaller than the hull of the forcing pair. 

Given a minimal congruence relation, there are at least two 
equivalent points, as the term "minimal" excludes the identity relation. 
The hull of those points must be the relation with which we commenced. 
Thus a minimal congruence relation is the common hull of all pairs of 
points which it identifies, Tf some other pairs of equivalent points 
generate a non-Minimal congruence relation, that is another matter, Sooe 
pairs of points are more congruent than others, depending on whether the 
least congruence ^relation which considers then equivalent is absolutely 
minimal or not. 

Our initial round then produces at least the minimal congruence 

relations, and perhaps some others. Ke know that any larger congruence 

relation will have to join at least one pair of classes of a minimal 

relation. Simply joining two congruence classes need not produce a 

congruence class, so the hull construction is to be applied once more. 

We therefore make all extensions possible in this manner, and 

are thereby ensured of finding all congruence relations for which the 

possible triples of points are equivalent. It is more efficient to 

extend the first round of congruence relations than to find the hulls of 

all possible triples, in general. 

■ 
The algorithm then precedes as follows. First we note the 

identity relation, which is always a congruence relation. Then we 

:'cr the hulls which consider the possible pairs of points equivalent. 

As each new hull is found, it is compared to see if the same as a 

previously found hull, and if not is placed on a waiting list # as well as 

on a list of relations to be extended, in this way w* have our initial 

selection of congruence relations. 



From this point on, we will take the partitions one by one from 
the waiting list and adjoin them to the finished list. In addition, we 
shall join its equivalence classes in all possible pairs and form the 
hull of the resulting equivalence relation. Each new hull so formad is 
compared against the waiting list and the finished list to see if it is 
new. When new, it is adjoined to the waiting list. Eventually no new 
partitions will be found and the process will terminate when the last 
waiting partition has been extended. 

The comparison of two partitions is not automatic, neither in 
LISP nor in CONVERT, no wore so than the comparison of sots, because 
sets pay be equal without being represented by equal lists. One mist 
either write a special comparison function for sets which will pass through 
one of them to see if all its elements are members of the other and 
conversely, or as we shall do in the present case, always reduce the 
list describing a sot to a standard form. 

To create the standard form, we maintain a list of the state set 
in some arbitrary order. In our present progran this state set is (*S*J* 
Ke shall require that the elements of a subset of S, such as an equivalence 
class, appear in this same order. The ordering is realized by a double 
complementation, and is effected by the function (Kl X). 

Nl REPT (((X) (-COMP- (*S*) (-C0MP- (*S*) X)))) 

Next, in any set of subsets which are so normalized, we require that the 

subsets be listed so that their first element preserves the order of (*S*). 

The function N2 achieves this ordering, 

N2 REPT (((X) (-ITER- I (*S # ) (*SKEL* I VAR 1 

(-WHEN- X («- (I XXX) —) ((I XXX)) ()))))) 

Here we pass through (*S") and if there is my subset which begins with 

the selected letter it is extracted and placed in order. 

Finally there is a function NO which will take an arbitrary list 

of partitions, normalize them and eliminate duplications, 

NO REPT ((X (»UNON- C-HER- I X (N2 (-ITER- J I (Nl J))))))) 

We have now seen the essontial structure of the program CGRU. It is 
organized as a program, whose program variables have the following usage. 

(*A+) is used to store the letters of the input alphabet 

(•G*) is the finished list 

C*S*) is the list of internal states 

(*P*) is the waiting list, and a temporary workspace. 

in addition, 

-T- iff the transition table, 






As a convenience* but also as a check against errors, the program 

initially computes the alphabet and the state set, These could be input 

as data* but are also implicitly present in the transition table. 

Bucket variables are used in the collection; 

AA for the alphabet 

SS for the state set 

while the collecting patterns are 

t«S») PAT ((*OR* t— ' CSS -R-) -S«) (—))) 

C-R-) PAT ((*OR* ((AA SS) -R.) ())) 

First, then* the alphabet and state set are found* and the results 

are printed* as well as being stored in the program variables (*A*) and 

t*S'). 

The phrase (CONGRUENCE RELATIONS) is written. 

The identity relation is printed and stored in (*G*). 

(*P*) is then set to a list of the equivalence relations of single pairs* 
done in two stages; pairs are forned* and the remaining unit 
classes adjoined* 

1 is the label for the extension loop 

■ 

The hulls of each of the partitions in (*P*) aw formed. 

These are normalized and duplicates on the finishod list are rejected, 

■■ is written to separate partitions found in different cycles. 

If no new partitions were formed* we finish* going to head 2. 

The newly found partitions aro printed^ 

i 

and adjoined to the finished list. 

Otherwise the pair-joining extension is made for each of the 
newly found partitions* 

and the cycle is repeated, 

,2 is the label for the exit* 

which consists simply in writing (■■»«■ GOODBYE ■»■■-). 

It should be noted that the program speaks of extending the waiting 
list in one step while our description of the algorithm spoke of one 
partition at a time. This is because the Individual steps are all 
encompassed in one "ITER-* and hence the order of so»e of the steps 
is slightly different. 

To illustrate the program we now consider an illustrative example. 
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cgTu (((a (1 b) (0 c)) (b (0 b) (1 d)) Cc (0 c) (1 d)} (d (0 d) (1 d)))) 

(ALPHABET) 

(0 i) 

(STATE SET) 

(A B C D) 

(CONGRUENCE RELATIONS) 

((A) CB) (C) (D)) 

(CA C) (D D)) 
C(A B C D)) 
C(A) (B C) (D)) 
CCA) (B D) (C)) 
((A) CB) (C D)) 
(..... GOODBYE — — ) 
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The machine is: 
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And its congruence relations are: 
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The algorithm, although sinple, calls for a considerable amount 
of calculation. Moreover, the amount rises rather sharply with the 
sl;e of tha machine Since there are many processes which depend on the 

square of the machine order —- the search to see if .equivalent decerns 
have equivalent images, the starting step which considers individual pairs 
of equivalent elements, and so on. It already required about one minute 
or actual running time in CTSS LISP to enalyxc a four state machine, which 
made this about the limit of practical slxe, but hardly larger than could 
be readily analyzed bf hand. Accordingly, the program wan rewritten almost 
verbatim in LISP and compiled. The principal function, (CONG T) ( ran 
about twice as fast as the CONVERT progiam CCRU when interpreted, and 
3d times faster when compiled. Depending ono*s perspective, he vould think 
that CONVERT was not inordinately slow, unless he considered the CTSS LISP 
interpreter inerdinfltely »l*w also, tleuever the LISP program was about 
twice as long, in the volume of letters which its statement consumed, 
and probably rather less transparent than CGRU, depending upon ore's 
experience in reading LISP versus CONVEBT, 

Since the two prograns are identical in specification we shall not 
describe CONG separately nor show an example of its operation. However, 
in order to make the listing more understandable, we briefly describe the 
auxiliary functions upon which it calls. 

(ONG T) is the main function, which corrputes all the congruence 
i relations for the nachine specified by the transition 

table T. This table has the forn {«•• (X *m (I Y) »■■) * . 
■«) where X is a state, I an input letter, and Y the 
inage state M(X,I), 

it is a program whose program variables have the following 
significance 

A is the input alphabet 
G is the finished list 
S^ is the state set 

P is the workspace holding the extensions of one relation 
If is the waiting list 

The steps of the program aie nearly identical to the 
corresponding iteps of CGRU. 

(ELEMENT X L) is a predicate, true if the expression X is found on 
the list L, 

(COMPLEMENT A B) is a list of all those members of A which do not 
belong to B. A and B are both lists, Retained 
elements occur in the original onler with the same 
multiplicity. 
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by" joining toge-.hex 2Srt/frA^raT 
classes in A. For example, if A ■ CW TO J c » » 
(PAHSET A) - (CCA B) ffi» «* <3 W) «* c > <*>»■ 

V The joined class appears first, followed by those 

remaking. A partition of no or one class s t "'"' 
MWl« ll the iaitialixation. The significance of 
th« program variables is 

1 rang** through A 

J rsnies through (CDR I) 

P r «ciin> th# join** partition* alrcacy found. 

i s „: ass rsa'JKW: oVrYS. 

(NOBREWNMKT L) - (10). 

(REMOVE I J l) produces a list whose elements are the elements of I, 
( ixc. P t that both I an* 3 are deleted: 0th«*iM tf» 

order of the elements is not changed. If U (0 I 2 2 1 0), 
I ■ 0, J - 1» th«n (REMOVE I J L) - (? 2) . 

fJOIN I J L) assumes thu it* three areuMnts are lists. In *>» 
* present context, I and J aro equivalence ''^"Av^ 

L is » partition. T and J are appended, and removed 
fxcm L, The value is a list of first the joined I ana 
J, then the list L fxon vhich th»y have b«m removed. 

(IMAGE B L fi assume, as aieuneots a state S, a letter L and * 
1 transition table T. Its value is the image of B by L 

. according to tho tab to T. The function is a program 
which searches T until it finds a sublist beginning 
With S. It then wuch«i *ho CTH of this » ub »" to 
find a sublisi beginning with L, whose CADR is the 
value. 
' (CONTAINING X L) finds tho subli*t of L which contains X, if any, 
otherwise the empty list, 

mtiLL P A Tl is the analogue of the CONVERT function iiu, which find. 
(HULL P A T) »^e an g m p accordinR „ fa n ach ine 

which has alphabet A and transition table T. These latter 
night -oil havo boon loft " frae variables. 

The pronrsn varisbles signify: 

AA which ranges through the alphabet a 45 m 
test images by various letters 

I which ranges through a class of the partition 

II which it the class containing the image of I 
' J which ranges through CDR of the class of I, 

forming t*>» •oeond element of a pair 
JJ which is the class containing the image of J 
I which rBigoa tbroufih tho claseos of P. I and 

J both belong to f. 
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The operation of HULL follows exactly our earlier 
description. 

(BEGINNING X L) finds the sublist of L beginning with the expression 
X, otherwise the empty list. 

(NORi L 5) normalizes the lublisU of L with respect to the set 

(state set) S. In other words, the elements in each 
sublist are nadc to appear in the sane order in which 
they appear in S, 

(N0R2 L S) normalizes the list L according to the list S in the 

sense that the sublists of L are aade to appear with 
their first elements in the same order in which they 
appear in S. 

(JOISNONNULL A B) CONS's A to B unless A is null, in which case B 

remains unchanged, 

* 

(N0R3 P S) causes each element of the list P to be normalized 
according to the functions N0R2 and NORI. 

(HULLS PAT) causes HULL of each element of P to be computed, 

(ADJOIN X L) places X on the list L if it is not already a member. 

(GATHER T) # where T is the transition table, gathers all the letters 
of the alphabet and all the state symbols, making a 
list of these two lists. Its action is exactly 
analogous to the bucket variables which perfora a 
similar function in CGRU. 

Usage of the program variables is 

A to collect the letters of the alphabet 

S to collect the state set 

U to retain (CDR T) while we search (CAR T). 

After conpilation, CONG required 20 seconds for a 6-stato machine 
while CGRU required 70 seconds for a series Of 4-stato machines which 
indicates that the practical limit may occur for 8 or 10 state »achines i 
although no effort was made to make accurate tining evaluations. Tlie 
method we have presented is completely straightforward, but to handle 
machines of moderate size, further consideration is necessary to see how 
calculations may be simplified or avoided. For example, each time we 
see that two classes need joining in calculating the hull, we start 
completely anew to test the extended relation, yet one can see .that he 
will then uselessly have to repeat a great deal of calculation. Perhaps 
it would bo worthwhile to test the resulting relation against the known 
congruence relations each time a juncture was made, since such a comparison 
would be much faster than testing all the pairs. 
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(CLCCK I 
1SETO « 
ISETQ 5 
ISETQ A 
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(7T) (PROG t * SCwr 

II 

(GATHER Till 
(CACR At) 

(CAR ■-■ 11 



IPRINI 

I PRINT 

(PRINr 

(PRINT 

[PRINT 

(PRINT 

(SETO 

HI 

(CONO 

rSETQ 

ISETQ 

ISETO 

ISEIO 

(COND 

ISETQ 



(QUOTE 
Al 

(QUOTE 
SI 

(QUOTE 

(QUOTE 

I (LIST 



(«== ALPHABET »=■))> 
!»== STATE SET — III 
(CONGRUENCE RELATIONS))) 
(UNITIZE SI)) 



((NULL W> (GO HZ1I1 
G ICONS (PRINT (CAB W)l Gil 
P 1NONREDUNDANT (N0R3 (HULLS (PAIRSET 
P (COMPLEMENT (COMPLEMENT P HI Gl) 
U ICDR uil 

(INULL P) ICO HID) 
M (APPEND P Wl I 



(CAR H)) A TTI Sill 






Ml) 



(GO 
H2 

(PRINT 
111 



(CLOCK TJ) 



<*LE*ENT CLAHfltA IX LI IATO (NOT (NULL Lll IO« (fcOUAL K (CM LI] (HtAEtf 

ICQHPL6MPJT ILAWBOA 14 It]* f UNO 
( ( **JLL A } A ) 

CIELCMCNT (CAft A> ft) (CQKPLEf*Enr (CO* A) BIJ 
M IC0*S ICW.AI (CDHPLEHCM (CO* Al *||) 

I^AIftSET [LAMBDA |A) IPROS ( I J P 1 
ICE*JD UNU.L A) l«TU*N MM 

tSEra i a i 

CCCWD IINlAl (COR 1)1 UETIAN UISTIMI 
iscro j rr.LK in 
HI 

CCDUD If NULL ICOfl Ml I ACTUM PJJ 
tlNUtL Jl ICO H2MI 

iserg p icons (join icau ii icar j* ai pj j 
iscro j rccA j>i 

KO Nil 

(5£TO 1 (CM m 

iserg j (cw id 

ICO MM 
IM 

lUNlTUt (LJrtftOA (LI fCOND ( MUU LI LI CT ICONS ILIST (CA* Lll {UMTUt 

INCNRtCUKCANT ILAM30A (L* (CONO 
1 1 MILL LI L I 



< (CM Limn 



'.'■: Limill 



11 ELEMENT (CAK LI (CDR LI) INONRt.AJNDANT (CDR L))) 

IT (CONS (CAR LI (NONREOUNDANT ICDR DM) 

HI 

(REMOVE (LAMBDA (I J L) (COND 
( (NULL Li L) 

((EQUAL I (CAR L>> (REMOVE I J (CDR DM 
((EQUAL J (CAR L>> (REMOVE I J (COR L) ) I 
(T (CONS (CAR L) (REMOVE I J (CDR Dill 
111 

(JOIN (LAMBDA (I J LI (CONS (APPEND I J) (REMOVE I J LID) 

(IMAGE (LAMBDA IS L TT) (PROG II 
HI 

ICO'NO MNULL TTI (RETURN (LIST)))) 
1CONO KEQ S (CAAR III! (GO ■■?))) 
(SETQ TT (CDR TTH 
(GO Nil 
HZ 

(SETQ TT (COAR TTH 
H3 

(COND ((NULL TT) (RETURN (LISTIIII 
(COND <(EQ L (CAAR TT)) (RETURN (CAOAR ID))) 
(SETQ TT (CDR TTH 
(GO H3| 

in 

(CONTAINING (LAMBDA IX L) (CGND 
((NULL L) (LIST)) 
(< ELEMENT X (CAR LI I (CAR LI I 

IT (CONTAINING X (CDR LM) 
III 

(HULL (LAMBDA (P A TT) (PROG I AA I II J JJ K I 
ICONO ((NULL P) (RETURN PHI 
HO 

(COND ((NULL (COR PI) (RETURN PHI 
(SETQ K PI 
HI 

(COND ((NULL K) (RETURN DM 
H2 

(SETO I (CAR KM 
H3 

(COND KNOT (NULL (COR HI) (GO H*H) 
(SETO K (COR Kll 

(GO Mil 

H4 

(SETQ J (CDR III 

m 



t-.i-i., JJ (CONTAINING (IMAGE (CAR J) (CAR AA) III PI) 

(CONO I (EQUAL II JJ) (GO H9|)l 

(SETQ P (JOIN II JJ Pll 

I GO HO) 

H9 

(SETO AA (COR AA) ) 

(GO H7) 

II) 

(BEGINNING (LAMBDA IX U (COND 

((NULL III.) 

IIECu.iL X (CAAR LI) (CAR LI) 

(T (BEGINNING X (CDR Llll 

lit 

(N0R1 (LAMBDA U SI ICONO 
((NULL L) LI 
(T ICONS (COMPLEMENT S (COMPLEMENT S (CAR LIU (NOR1 (COR LI Sill 

Ml 

• 

INOR2 (LAMBDA IL S) (CONO 
((NULL SI S) 
(T (JOINNONNULL (BEGINNING ICAR SI L) (N0R2 L (COR SI))) 

in 

(JOINNONNULL (LAMBDA (A B) (COND ((NULL A) Bl (T (CONS A Blllll 

(NOR3 (LAMBDA (P S) (COND 
((NULL PI P) 
IT (CONS (NOR2 (NOR1 (CAR PI S) S) (NOR3 (CDR P) S))l 

1)1 



J JSETQ JJ (CONTAINING (IMAGE (CAR J) (C. 7**1 TTI P1I 
ICONO ((EOU4L II JJ) (G0H9III '—'**» "> **» I 

ISETQ P (JOIN II JJ P>) 

I GO HO) 

H9 

(SETO AA (COR A.'.)) 

(GO h7I 

))) 

(BEGINNING (LAHBOA IX L) (COND 
I (NULL L) LI 

((eCUAL X (CAAR HI (CAR LM 
(I (BEGINNING X (COR Llll 
III 

(NORI (LAMBDA (L SI (CONO 
((NULL LI LI 
|J ( 'CONS- (COMPLEMENT S (COMPLEMENT S (CAR U i I INOR1 (COR LI SIM 

IWM2 (LAMBDA (L SI (COND 
((NULL SI SI 
IT^IJOINNONNULL (BEGINNING (CAR SI LI (N0R2 L (CDR'sIIM 



{HULL (LAMBOA (P A Tit (PROG I U [ II J JJ K I 
(CONO (INULL PI (REIUKN Pill 

' HO 

ICOND IINULL (COR P>) I RE TURN Pill 

ISETG K PI 

HI 

(CONO ((NULL Kl (RETURN Pill 

H2 

rSETO I (CAR K|| 

H3 

(CONO KNOr (NULL (CDR III) (GO HM 1 1 

(SETO K (COR Kll 

(GO Hll 

H* 

(SETQ J ICOR II) 

H5 

(CONO KNOT (NULL Jll IG-0 H6II) 

(SETO I (COR III 

(GO H3I 

H6 

(SETO AA Al 

H7 

(CONO ((NOT (NULL AA)) (GO H8))l 

(SETQ J (CDR Jll 

(GO H5I 

H8 

(SETO II (CONTAINING (IMAGE (CAR I) (CAR AA) TTI P) I 



17, 



(HULLS UAHBCA IP A TT) I C OND 
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